PPPPPPPPPPPP 
PPPPPPPPPPPP 
PPPPPPPPPPPP 
PP PPP 


PP PPP 
PPPPPPPPPPPP 
PPPPPPPPPPPP 
PPPPPPPPPPPP 


AAAAAAAAA 

AAAAAAAAA 

AAAAAAAAA 
aka AAA 
AAA AaB 
AAA AAR 
AAA AAA 
AAA AAA 
AA AKA 
AAA AAA 
AAA AAA 
AAA AAA 
AAAAAAAAAAAAAAA 
AAAAAAAAAAAAAAA 
AAAAAAAAAAAAAAA 
AAA AAA 
AAA AAA 
AAA RAD 
AAA AAA 
AAA AAA 
AAA AAA 


RRRRRRRRRRRR 
RRRRRRRRRRRR 
RRRRRRRRRRRR 
RRR 

RRR 

RRR 

RRR 

RRR 

RRR 
RRRRRRRRRRRR 
RRRRRRRRRRRR 
RRRRRRRRRRRR 
RRR = RRR 
RRR = RRR 
RRR RRR 
RRR RRR 
RRR RRR 
RRR RRR 
RRR 

RRR 

RRR 


—— 


tt tt Ht tt St SH A HH A at HH Ht 
A a tH SH tH Ht 
tt tH SH Ht HH HHH 
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**F ILE**1D**PASGOTO 


PPPPPPPP AAAAAA SSSSSSSS GGGGGGGG 000000 TITTTITITIT 000000 

PPPPPPPP AAAAAA SSSSSSSS GGGGGGGG 000000 TITTTTTTIT 000000 

PP PP AA AA SS GG 00 00 TT 00 00 

PP PP AA AA SS GG 00 00 TT 00 00 

PP PP AA AA SS GG 00 00 TT 00 00 

PP PP AA AA SS GG 00 00 TT 00 00 

PPPPPPPP aa AA SSSSSS GG 00 00 TT 00 00 

PPPPPPPP AA AA SSSSSS GG 00 00 TT 00 00 

PP AAAAAAAAAA SS GG GGGGGG 00 00 TT 00 00 

PP AARAABAAAAR SS GG GGGGGG 00 00 TT 

PP AA AA SS GG GG 00 00 TT 00 00 eee 
PP val AA SS GG GG 00 00 TT 00 00 ees 
PP ha AA SSSSSSSS GGGGGG 000000 TT 000000 coe 
PP AA AA SSSSSSSS GGGGGG 000000 TT 000000 cece 
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DECLARATIONS 


PAS$GOTO ey * level G 
PAS$$GOTO HANDLER - Es Lish d°by PASSHANDLER 
n 


tabl 
PASSSUNWIND_GOTO = Unwind to ation FP and PC 
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ABSTRACT: 


This module contains PAS$GOTO, which performs an up-level GOTO 
for Pascal routines. 


ENVIRONMENT: User mode, AST Reentrant 


AUTHOR: Steven B. Lionel, CREATION DATE: 28-Jan-1983 
Special thanks to Bevin Brett. 


MODIFIED BY: 


2-001 - Complete rewrite of orginal BLISS version which did not work 
when called from condition handlers. SBL 28-Jan-1983 


| 
| 
| 
' 
+ 
FACILITY: VAX=11 PASCAL Language Support 
| 
| 
| 
| 
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PAS$GOTO - Perform up-level GOTO 16-SEP-1984 01:25:1 AX/VMS Macro V04-00 Page 
2-001 DECLARATIONS 66-SEP-1984 1:97:18 LPASRIL. SREIPASGOTO MAR; 1 ‘ 3) 
p08 8 -SBTTL DECLARATIONS 
909 I ; LIBRARY MACRO CALLS: 
0000 ¢ y 
0000 5 SCHF DEF ; Condition Handling symbols 
0000 ee SSSDEF ; SS$_ symbols 
8005 5 
000 2$ 3 
0000 57 ; EXTERNAL DECLARATIONS: 
0000 89° 
0000 60 -DSABL GBL : Force all external symbols to be declared 
0000 61 -EXTRN LIBSSTOP : Signal non-continuable exception 
0000 6¢ -EXTRN PAS$_GOTO ; Up-level GOTO | 
0000 6 -EXTRN PAS$_GOTOFAILED ; fat oy GOTO failed 
0000 64 LEXTRN SYSSONWIND ; SUNWIND system service 
0000 65 
0000 66 ; 
0000 67 ; MACROS: 
0000 68 ; 
0000 69 ; NONE | 
0000 re 3 
0000 71 ; EQUATED SYMBOLS: 
0000 ie; : 
0000 {> 3 NONE 
0000 74 ; 
0000 75 ; OWN STORAGE: 
0000 76 ; 
0000 qf 3 NONE 
0000 78 ; 
4 0 ; PSECT DECLARATIONS: 
00000000 81 -PSECT _PASSCODE PIC, USR, CON, REL, LCL. SHR, - 
4 Hf EXE, RD, NOWRT, LONG | 
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2-001 PAS$GOTO - Perform up-level GOTO ae 1:93:10 LPASRTL. SREJPASGOTO-MAR: 1 3) | 
2096 ; x -SBTTL PAS$GOTO = Perform up-level GOTO | 
38 ; FUNCTIONAL DESCRIPTION: 
000 9; This procedure is called by PASCAL compiled code to perform 
4 90 ; an up-level GOTO. Functionally. it performs a SUNWIND to 
000 91 ; the specified frame and PC. The actual implementation is 
0000 35 ; described in detail below. 
0000 93 § 
0000 94 : CALLING SEQUENCE: | 
0000 9o 3 _— 
44 39 3 CALL PAS$GOTO (dest_FP.ra.v, dest_PC.jzi.r) 
e | 
44 35 3 FORMAL PARAMETERS: 
: 
00000004 0000 100 dest_FP = 4 ; The FP of the destination frame 
0000 101 ; If the signal is PAS$_GOTO, it has two 
9008 108 ; ‘FAO arguments'', the destination FP and PC. 
00000008 sit ie dest_PC = 8 ; The PC of the destination instruction | 
0000 106 ; | 
0000 107 ; IMPLICIT INPUTS: 
0000 108 ; 
0000 109 ; NONE 
0000 110; 
0000 111 ; IMPLICIT OUTPUTS: 
0000 112; 
0000 113; NONE 
0000 114; 
0000 115 ; COMPLETION STATUS: | 
0000 116; 
0000 117; NONE | 
0000 118 ; 
0000 119 ; SIDE EFFECTS: 
0000 120; ue 
44 138 : Functionally performs a SUNWIND to the specified FP and PC. 
0000 123 :-- 
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1 + 
Implementation notes: 


An ‘‘up=level"’ GOTO is a GOTO where the destination is not in the 

same stack frame (procedure incarnation) as the origination. Ideally, 
what one wants to do is unwind the stack frames back to the 

desired frame, and then begin — at the destination labelled 
instruction, The unwind is necessary to restore saved registers; 

one can't simply JMP to the instruction since the stack frame and 
register contents would be inconsistent. 


There is, of course, the system service SUNWIND that seems to do 
exactly what we want. You specify to SUNWIND the number of frames 
to remove and the desired PC, and off it goes. The first problem 
with this is that you can only unwind while in a condition handler 
(or in a procedure called from a condition handler). This is not 
much of a problem, one can simply signal a special exception and 
intercept it in a handler, which then does the SUNWIND. The 

second problem is that while SUNWIND wants a number of frames to 
remove, we don't know how many frames distant we are from the 
destination; we do know the FP value of the destination frame. So, 
the initial implementation searched through the stack frame chain, 
counting until it found the desired FP. It then signalled PAS$_GOTO 
with arguments of the count and PC, and its own handler did the 
unwind. This worked well in normal cases, but failed spectacularly 
if it was called from a condition handler. 


OOOCCOCOOCOCCOOOCOCOOCOCOeSsS os 


OOOCOCOCOCCoOCoooOooooo 0 
OOCCOCCSCSSGGCOVCOOOo 


S 


ee ee 


| 
| 
t 
| 
| 
The problem was simply that when SUNWIND counts stack frames, and 
it comes across a condition handler, it ‘'skips’’ to the establisher's 
frame without counting intervening frames. This is correct according 
to the handler search algorithm. Because PAS$GOTO wasn't taking this 
into account, the number of frames to unwind that it specified was 
wrong. 

| 

| 


It is difficult — possible, to have PAS$GOTO count frames in the 
Same manner as $UNWIND. If this is done, one finds another problem; 
this time due to a design flaw in SUNWIND. Bea teatty. if one ; 
specifies a non-zero number of frames to unwind, with the intention 

of unwinding to an establisher'’s frame, SUNWIND removes one stack frame 
too many. f Yo decrease the count by one, you unwind only to ; 

the handler. Thus, it is impossible to unwind exactly to an establisher 
frame if that signal is not the current one. Since being able to : 
GOTO elsewhere in the establisher'’s frame is a desireable feature, this 
is unacceptable. 


pele le lololelolo lola le lel elw lela lo leololololeololololololo!) 


An intermediate implementation was tried which gimpty establishes 
a handler in the destination frame, signals PAS$_GOTO, and lets 

that handler unwind to its establisher. This doesn't work when there 
op Seeaedy a signal in progress since the special GOTO handler is 
skipped. 


The successful solution is somewhat complicated, and is actually 
two solutions in one. There are two interesting cases of an 
up-level GOTO: : 
. There is no signal curryatty in progress 
2. There are one or more signals currently in progress 
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2-001 PASS$G - Rertere up-level GOTO aot 4587518 LPASRIL. SRE IPASGOTO MAR; 1 . (4). 
The first case can be solved with either the original method or 
with the ‘intermediate implementation’’ where a special handler 


is temporarily established in the destination frame. The Latter 

is what is used; PASSHANDLER, if already established, serves as 

that special handler, or PASSSUNWIND_GO O is established if there 

is no handler. We assume es no handler other than PAS$HANDLER 

is established in the destination frame. This is reasonable, because 
the only way it could get there is by the user calling LIBSESTABLISH, 
and if this was done, the user got a compile-time warning from 

era ee saying that LIBSESTABLISH was incompatible with 


} 
Once a handler is established in the destination frame, PAS$_GOTO 
is ees with two FAO parameters of the destination FP and 
PC. Note that the stack-frame search of the original implementation | 
is no longer present. If no other exception is in progress, this 
signal will be caught by the handler in the destination frame, which 
will then unwind zero frames to the establisher at the destination PC. 

| 

| 

| 


The more interesting case is when there is an exception in progress. 
PASSHANDLER, which was established when the user used the ESTABLISH 
builtin, and which has already been called for the current signal, 
has itself established a handler PASS$$GOTO_HANDLER. This handler 
causes an unwind back to the frame of its establisher (PASSHANDLER), 
but at PC UNWIND TO_ESTABLISHER. This effectively removes the Last 
exception (PAS$_GOTO). Before unuind ing. the destination FP and PC 
are loaded into the saved RO and R1 so that they can be communicated 
to UNWIND_TO_ESTABLISHER. 


UNWIND_TO_ESTABLISHER then unwinds zero frames to the gogant Tyner, but 


SOOO COQOOCOCOCOOCCOOOOOOCOOOOOOOOCOOOCOOO O- 
SOoOOOCSCOCOCCOOSCSOSOSOOSSOOSOOSOSOOOCSOOOSOSoOSoOO -0 
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0000 at PC JUMP TO DEST. Again, RO and Ril have the saved FP and PC. | 
0000 JUMP_TO_DEST Tooks to see if the destination FP is the same as its 
0000 current FP, which it might not be. f it is, then it simply jumps 

0000 to the destination PC. Otherwise, it calls PAS$GOTO again with | 
0000 the original arguments. Eventual Ly all signals between the source 

i434 and the destination of the GOTO will be unwound. | 
0000 The following problems with SUNWIND are known: } 
0000 1. You can't unwind more than one exception reliably.. ; 
0000 r pg zero frames leaves the signal and mechanism arglists, 
0000 along with some other stuff, on the stack. This doesn't 
0000 bother us as PASCAL always readjusts the stack at GOTO | 
0000 destinations. 
0000 3. Unwinding zero frames doesn't restore the saved RO and R1 
0000 from the mchargs list. This is solved by manually loading 

i$ the registers before doing the RET from the handler. 
0000 - 
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-ENTRY PAS$GOTO, “M<> 


acro 
RCJPASGOTO.MAR; 1 


3 gh nol ~ destination frame to see if ery is a a pa = so 

3 that it is PASSHANDLER and do noth hen If n tablis 

: PASSSUNWIND .GOTO there. PASSHANDLER itself es aputsnes  bassseoto HANDLER. 
; One of these two handlers will catch the signal of PAS$_GOTO we will make. 


7E 04 AC 
00 BE 


00 BE O08E'CF 


t_FPC(AP), -(SP) ; Push destination FP and PC 
Py : +9 og ge ty frame have a handler? 


p if it doe 
AS$SUNWIND_GOTO, acsps ° Ke eabtich PASSSUNWIND _GOTO 


o-oN 
Mongo 


: Now signal PAS$_GOTO with FAO arguments of the destination FP and PC. This 
: will be intercepted by PASS$GOTO_HANDLER or PAS$$UNWIND_GOTO 
: _to actually do the unwinds. 


02 OD 10$: PUSHL #2 ; Two arguments already pushed 
00000000" x DD PUSHL #PAS$_GOTO ; “Up-level GOTO" 
00000000 ' GF FB CALLS #4, G*LIBS$STOP 3 Signal it 


; Can never return from LIBSSTOP 
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or | 


xc 
ro 
zai 
o- 
mc 
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~-SBTTL PASS$GOTO_HANDLER = Established by PASS$HANDLER 


{FUNCTIONAL DESCRIPTION: 


This is a condition handler established by een: which 
intercepts PAS $_GOTO gucept tone and unwinds back 


establisher's frame (PASS 
CALLING SEQUENCE: 

ret-status = 
FORMAL PARAMETERS: 


sigargs = 4 : 


to_its 
ANDLER) but at PC UNWIND_TO_ESTABLISHER. 


PAS$S$GOTO_HANDLER (sigargs.rlu.r, mchargs.rlu.r) 


The signal arguments List 
If the signal is PAS$ GoTo, it has two 


; "FAO arguments'’, the destination FP and PC. 


mchargs = 8 $ 


IMPLICIT INPUTS: 
NONE 

IMPLICIT OUTPUTS: 
NONE 

COMPLETION STATUS: 
NONE 

SIDE EFFECTS: 


Unwinds back to its 
UNWIND _TO_ESTABLISHER. 


SENTRY PASSSGOTO. HANDLER, aM<> 
OVL EuPaL osc R1 : 
HPL HFSLSIG Planer), #PAS$_GOTO : 
MOVZUL pees _RESIGNAL, RO : 


Unwind the stack frames back to our establisher 
saved RO and R1 to communicate the destination FP and P 


10$: MOVL mchargs (AP) : 
MOVG =: 12(R1 aint RACH _SAVRO(RO) : 
PUSHAB B*UNWIND_TO_ESTABLISHER : 


establisher (PASS$HANDLER), 


; Get sional 


The mechanism arguments List 


but at PC 


Ass coro? list 
3 this P 

so, ih going 
Reclozel t A enteption 


; Return to C 


PRESRLER. Use the 


Get mechanism arguments List 
Store destination FP and PC 

in saved RO and R1 

Unwind to UNWIND. TO_ESTABLISHER 
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2-001 PASSSGOTO_HANDLER = Established by PASS$H 6-SEP-1984 11:51:1 PASRTL.SRCJPASGOTO.MAR; 1 
08 AO OF O+g 14 PUSHAB curs, MCH_DEPTH(RO) 3; In establisher's frame 
00000000 ' GF o¢ FB o 15 CALLS » G™SYSSUNWIND ; Do the unwind 
01 F 4C 1§ BLBC R * Calis FAILED : Skip if unwind unsuccessful 
4 OO4F 1 - RET ; Return to UNWIND service 
ae 
b28 9: : the SUNWIND was unsuccessful. Signal PAS$_GOTOFAILED. 
8 
050 UNWIND -FAILED: 
50 odd 0050 324 RO ; Unwind failure status 
7E D4& 0052 ; 5 chat -(SP) ; Zero FAO arguments 
QVO0000000'8F DD 0054 6 PUSHL ornes ,OOTOFAILED ; 
00000000'GF 03 FB OOSA 327 CALLS #3, G*LIBSSTOP ; Signal PAS$_GOTOFAILED 


v 
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8 AO 
Q0000000'GF 02 
50. Ss 6E 


50 


Ouwoow 
NMmO—NO 


7E 
00000000 ' GF 


04 


a) 
oonn— 


VSOCVC VG AAAAAO CNNOWL SSS Ss ees OT 


xc 
ro 


H 14 


mc 
De 


pASSSG0TO. HANOLER. 
PASSHA ANDCER. R 
In other words, it 
a different PC. 


Although the frame will 
our own JUMP_TO_DEST, below. 


Sete Ge Se Ge Ge Se Ge Se Ge Ge 


UNWIND_TO Spon 2 ayes? 


L GOTO 16-SEP-1984 
- Established by PAS$SH 6-SEP-1984 
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UNWIND _TO_ESTABLISHER = This section of code is unwound to b 
When we get here, the current of 

contains the destination trons and R1 the Pings hs ra PC. 
f we had unwound back to PASSHANDLER 
It is assumed that AP has not been modified. 


An unwind is done of ures th’ frames back to the establisher of PASS$HANDLER. 
e that of the establisher, the PC will be 


frame is tha 
, but at 


m6 -(SP) ; Push dest FP and P 

MOVL mchargs (AP) RO ; Get machen an args * tot 

MOvVaQ (SP), CHFSL *MCH_ SAVRO(RO) ; Save dest FP and PC in *RO-R1 
PUSHAB B* JUMP TO_ ; Unwind to JUMP_TO_DEST 
PUSHAB CHFS$L_ACHDEPTH(RO) ; Unwind to establisher 

CALLS #2, onsyss ; Do the unwind 


; Because we might be unwinding 
; zero frames, and SUNWIND 

: syrrentsy doesn't restore 

; RO and RI from the mechanism 
; arguments List, restore them 


; here. 
; Return to JUMP_TO_DEST 


~ 
mn 
wv 
~ 
. 
TRTETETEIOSOE ITE IE TET) 


RET 


JUMP_TO_DEST = We get here by means of the SUNWIND in UNWIND_TO_ESTABLISHER. 
the Current frame is that of the establisher of the handler that found this 
exception, but that is not necessarily our Gast fnet ton. RO contains the 
destination FP and R1 the destination PC. If this is the correct frame, 
just JMP to the destination PC. Note that there may be garbage on the 
stack left by the CHF - we depend on the PASCAL compiled code to readjust 
SP at the destination of GOTOs. 


If this is not the correct FP, simply re-call PASS$GOTO. 


Eventually we'll 
get to the right frame. 


JUMP_TO_DEST: 
CMPL 


RO, FP ; Is this the destination frame? 
BNEQ 10$ ; Skip if not 
JMP (R1) ; It is - jump to the goes inatten PC 
10$: MOVQ : iteratively’ A. PASS$GOT 


WANAWAAAAAAAAAAA NINA AAN ANNAN AAA AANA Zt 
SSN NDS DS DS DS De DD DED DS UT BB BS BS BB EE NAINA 
FUN ($$ O ODNAUES WN | O OONA UNE WN 0 OD NOAUE WN O OONOUSWN-On”O re 


RO, -(SP) 
CALLS #2, G*PASS$GOTO 
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= -SBTTL PASSSUNWIND_GOTO = Unwind to destination FP and PC 
FUNCTIONAL DESCRIPTION: 


: This is a condition handler established by PAS$GOTO in the 

: destination frame of an up-level GOTO. It intercepts PAS$_GOTO 
3 exceptions and initiates an unwind back to the destination 

: frame and PC. This routine is also called by PASSHANDLER if 

3 it detects PAS$_GOTO. 


PAS$GOTO 
2-001 


oc 


; CALLING SEQUENCE: 
ret-status = PAS$SSUNWIND_GOTO (sigargs.rlu.r, mchargs.rlu.r) 
; FORMAL PARAMETERS: 


00000004 4 


sigargs The signal arguments list | 
If the signal is PAS$_GOTO, it has tw 


two 
; ‘FAO arguments'', the destination FP and PC. 


00000008 


mchargs ; The mechanism arguments List 


| 
IMPLICIT INPUTS: | 
NONE 
| 
| 
| 
| 


WN O OONAUE WN OOONOUSWN—-OO0OnNGO 0 


IMPLICIT OUTPUTS: 
NONE 
COMPLETION STATUS: 
NONE 
SIDE EFFECTS: 
Unwinds back to the destination frame and PC. 


Be Se Se Ge Se Se Se Ge Ge Ge Se Ge Se Se Ge Se Ge Se 


0004 


PASSSUNWIND_GOTO, “M<R2> 
Get signal and mechanism Lists 
Is this PAS$_GOTO? 


sigargstAP) . RO 3 

CMPL CHFSL_SIG_NAME(RO), #PAS$_GOTO ; : 
10$ : If not, resignal 

CMPL 12(RO), CHFSL_MCH_FRAME(R1) : Is establisher FP the dest FP? 
BEQL 0$ : Skip if 

10$: ta #SSS$_RESIGNAL, RO : 


50 904 AC 
00000000'8F 04 AO 
04 Al OC AO 

50 0918 8F 


ow9o 90 NI 
own" 9 


so 
; Resignal this exception 
Return to CHF 


[J 
oO 


3+ 
; If. the handler established in our ‘‘establisher's’’ frame is PASSSUNWIND_GOTO, 
3 (which it wouldn't be if we were called from PASSHANDLER), remove our 


; address as that frame's handler. 


= | 
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J 14 
- Perform up-level GOTO ; ys ak dae 9 91:63:16 ered in Macro V04-00 Page 11 | 
PASSSUNWIND_GOTO = Unwind to destination 6-SEP-1984 11:51:1 PASRTL.SRCJPASGOTO.MAR; 1 (8) 
52 __E0 AF 9 AB 433 20S: MOVAB B*PASSSUNWIND GOTO, R2 ; Get address of our entry mask 
0481 52 O bat r ¢ CMPL R2, @CHFSL_MCA_FRAME(R1) 3 + Mi the same as establishers 
; handler? | 
03 12 008 4 § BNEQ 308 : Skip if not 
04 Bi 4 43 ? CLRL @CHFSL_MCH_FRAME(R1) ; Cancel the handler 
008 4 5 
0B 440 ; Unwind the stack frames back to our establisher, the destination frame, 
08 441 ; and to the destination PC. 
008 ry i- 
00B8 44 
10 AO DD O0B8 444 308: PUSHL 16(RO) ; Push destination PC 
08 Al OF OO0BB 445 PUSHAB CHFS$L_MCH_DEPTH(R1) ; Unwind to establisher 
Q0000000'GF 02 FB OOBE 446 CALLS #2, G*SYSSUNWIND ; Do the unwind 
03 50 gS 00C 447 BLBS . ; Return if successful 
FF85 1 00C8 448 BRW UNWIND_FAILED ; Signal failure of UNWIND 
04 OOCB 449 40S: RET ; Return to UNWIND service 
oocc 450 
oocc§ 38451 
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PAS$GOTO - Perform up-level GOTO as at 4 9 91:63 
6-SEP=1984 11:51 


Page 
Symbol table 


18 orden Macro V04-00 
1 PASRTL.SRCJPASGOTO.MAR; 1 


CHF SL_MCH_DEPTH = 0000 8 8 
CHF $L_MCH_F RAM = 00004 
CHF SL-MCH-SAVR = 0000 0 C 
CHFSL_SIG_NAME = 00004 
a = SO bOS 
JUMP_TO_DEST 000007D R 
LIBSSTOP Reekeeee x 
PASS$$GOTO_HANDLER 00000020 RG 8 
PASSSUNWIND_GOTO QOOOOO8E RG 
PAS$GOTO 00000000 RG 0 
PAS$_GOTO teeeeree =X 0) 
PAS$_GOTOFAILED eeeteeee x 00 
SIGARGS = 00000004 
SS$_RESIGNAL = 00000918 
SYSSUNWIND weereeeer § X 00 
UNWIND_FAILED 00000050 R 02 
UNWIND _TO_ESTABLISHER 00000061 R 02 
fmm newer ow ammo a ae + 
' Psect synopsis : 
name ocation oO. ributes 

PSECT Allocati PSECT No. Attribut 
. , 00000000 «¢ 0.) 00 ¢ 0.) NOPIC USR CON ABS LCL NOSHR NOEXE NORD NOWRT NOVEC BYTE 
SABSS 00000000 ¢ _ 0.) 01 ¢ 1.) NOPIC USR CON ABS LCL NOSHR EXE RD WRT NOVEC BYTE 
_PASSCODE oo0000cc ¢ 204.) 02 ¢ 2.) PIC USR CON REL LCL SHR EXE RD NOWRT NOVEC LONG 

foomasems se eceaesocasanases + 

! Performance indicators ! 

$e ee eer ewe ee eee ere em sew eeecee 
Phase Page faults CPU Time Elapsed Time 
n alization 7:00:00. 2:00:00. 
Initiali i ' 10 00:00:00.08 00:00:00.25 
Command processing 74 bs $e 14 00:00:02.60 
Pass 1 182 00:00:04.37 00:00:14.87 
Symbol table sort 0 00:00:00.63 00:00:01.89 
Pass 2 94 00:00:01.19 00:00:07.07 
Symbol table output 00:00:00.05 00:00:00.47 
Psect synopsis output 00:00:00.02 00:00:00.02 
Cross-reference output 0 00:00:00.00 00:00:00.00 
Assembler run totals 367 00:00:07.01 00:00:27.17 


The working set Limit was 900 pages. ; 

24301 bytes (48 pages) of virtual memory were used to buffer the intermediate code. 

There were 30 pages of symbol table space allocated to hold 434 non-local and 7 local symbols. 
451 source Lines were read in Pass 1, producing 19 object records in Pass 2. 

9 pages of virtual memory were used to define 8 macros. 
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- Perform up-level GOTO stip i oj 384 91 9: 16 ern o V04-00 Page ! 


PASS$GOTO 
VAX-11 Macro Run Statistics PASRTL.S SPASGOTO. MAR; 1 
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! ; Macro Library statistics ! 


wrer cme em ee ee meen wenn me seme + 


Macro Library name Macros defined 
_$255SDUAZ8: [SYSLIBISTARLET.MLB; 2 PCRS 
486 GETS were required to define 5 macros. 

There were no errors, warnings or information messages. 


MACRO/ENABLE=SUPPRESSION/DISABLE=(GLOBAL , TRACEBACK) /LIS=L1S$:PASGOTO/OBJ=0BJ$:PASGOTO MSRC$:PASGOTO/UPDATE=(ENH$:PASGOTO) 
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